COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ENTRY
C00005 ENDMK
C⊗;
ENTRY;
BEGIN
REQUIRE "ABBREV[BBB,BBM]"SOURCE_FILE;
REQUIRE "MACMAC[BBB,BBM]"SOURCE_FILE;
DEFINE PROGRAM = ⊂ SUB ⊃;
EXTERNAL record_class entri(integer rtype, val, blocklevel;  string itemvar name;
				record_pointer(entri) link;
 				record_pointer(ANY_CLASS) semantics);
REQUIRE "HALREC[BBB,BBM]" SOURCE_FILE;
EXTERNAL record_pointer(ENTRI) old_id, new_id;

EXTERNAL record_pointer (ENTRI) array bucket [0:63];
EXTERNAL record_pointer(ENTRI)
var0,var1,var2,var3,var4,var5,var6,var7;
EXTERNAL record_pointer(ENTRI) var8, var9,
var10,var11,var12,var13,var14,var15,var16;
EXTERNAL record_pointer(ENTRI) var17, var18, var19;

SIMPLE external procedure error(VALUE string mess);


ref(stmnt) currstat, oldcurrstat;
ref(block) currblock, mainprog;
ref(cell)  currtail;
rexpr currexpr;

define maxblock = ⊂ 30 ⊃;
context array blockenv [0:maxblock]; integer blocktop;

define maxstat = ⊂ 20 ⊃;
context array statenv [0:maxstat]; integer stattop;

integer i;

REQUIRE "PRODEC[BBB,BBM]" SOURCE_FILE;
END;